James Halliday Interactive Wine Companion 1999

home *** CD-ROM | disk | FTP | other *** search

/ James Halliday Interactive Wine Companion 1999 / James Halliday Interactive Wine Companion: 1999 Edition.iso / mac / Wine—drag to hard disk folder / Cellar.WOR (.txt) next >

Wrap

FileMaker Pro Database | 1998-07-28 | 98KB | 939 lines

work makAll play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All HBAM2016AUG95 Pro 3.0 All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a goodCopyright 1984-1997 Claris Corporation and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. bleasdale passing clouds cabernet shiraz@ taltarni shiraz@ QUANTITY REMAINING FaliA HBAM3016AUG95 SCNFG 2STR >vers This copy will expire on ^0. Other 1st Quarter 2nd Quarter 3rd Quarter 4th Quarter Date CreatedB Vintage IDB VintageB FOUND RECORD COUNT QUANTITY REMAINING MSPC@ alisA FaliA alisA `RgSd] 7/28/98 BEST DRINKING FROM BEST DRINKING SPAN BEST DRINKING TO BOTTLE SIZE BSELECTED ENTRY BTRUE CELLAR LOCATION CELLAR RECORD VALUE CELLARING TIME DATE CREATED DATE OF PURCHASE IMPORT CELLAR LOCATION IMPORT CELLAR TIME IMPORT DATE OF PURCHASE IMPORT GUESS LABEL IMPORT GUESS VARIETY IMPORT GUESS WINERY IMPORT PRESENT VALUE IMPORT PURCHASE PRICE IMPORT QTY CONSUMED IMPORT QTY PURCHASED IMPORT SUPPLIER IMPORT WINE LOOKUP ID IMPORT WINE NAME IMPORT WINE STYLE IMPORT WINE VINTAGE IMPORT YEAR TO DRINK PRESENT VALUE PURCHASE PRICE QUANTITY BOTTLES PURCHASED QUANTITY CASES PURCHASED QUANTITY CONSUMED Print Summary (List) Print Form Startup FormB QUANTITY REMAINING SCRIPT RESULT SORT WINE NAME SUPPLIER TOTAL CELLAR VALUE TOTAL REMAINING VARIETY CHAR POS VARIETY WORD COUNT VIEW OLD WINE NAME VINTAGE VINTAGE ID WINE ID WINE NAME WINE STYLE WINERY NAME WINERY WORD COUNT X YEAR TO DRINK Date CreatedB Vintage IDB VintageB Cellar LocationB Cellaring TimeB x Year to drinkB Date of PurchaseB SupplierB Purchase PriceB Present ValueB Quantity Bottles PurchasedB Quantity ConsumedB Quantity RemainingB + 12 * InfoB Winery NameB A Wine Name Wine IDB bSelected EntryB script resultB Wine StyleB Cellar Record ValueB Total Cellar ValueB import Wine NameB view old Wine NameB & " - " & & " Style: " & Style: import Wine VintageB import Wine StyleB import Cellar LocationB import Cellar Time import Year to DrinkB import Date of PurchaseB import SupplierB import Purchase PriceB import Present ValueB import Qty PurchasedB import Qty ConsumedB Import Wine Lookup IDB & ":" & Sort Wine NameB bTrueB Quantity Cases PurchasedB Bottle SizeB import guess WineryB import guess LabelB import guess VarietyB tempB winery word countB variety char posB variety word countB Best Drinking SpanB Best Drinking FromB Best Drinking ToB Total RemainingB Found Record CountB zw23q Limited Releaseq Print Summary (List)B Date CreatedF Vintage IDL Vintage( Date CreatedF Vintage IDL Vintage Cellar LocationP Cellaring TimeR x Year to drinkT Date of PurchaseV SupplierX Purchase PriceZ Present Value\ Quantity Bottles Purchased^ Quantity Consumed` Quantity Remainingb Infod Winery Namef bSelected Entryh script resultj Wine Stylel Wine IDn import Wine Namer import Wine Stylev Import Wine Lookup IDx Cellar Record Value| bTrue import vintage lookup ID import wine lookupID import Wine Name import guess Winery import guess Label import guess Variety Best Drinking Span Print FormB A Wine nameC VintageD Cellar locationK Qty T Page ##X Total Cellar Value^ Value_ Cellar List A Wine nameC VintageD Cellar locationK Qty T Page ##X Total Cellar Value^ Value_ Cellar Listllar Listr List List Total Bottles StartupB 28/7/98K mineO 2122U urif_ 1/1/93c cellar doord 1998w 1998x -2327B 24/7/98C 1/1/95K cellarL Morris Durif] 1992^ Durif_ 1/1/95c cellar doord 2000w 2000x -2328B 24/7/98C -5124G 1/1/95K cellarL Morris Durif] 1993^ Durif_ 1/1/95c cellar doord 2001w 2001x -2329 FOUND RECORD COUNT IMPORT CELLAR LOCATION IMPORT CELLAR TIME IMPORT DATE OF PURCHASE IMPORT GUESS LABEL IMPORT GUESS VARIETY IMPORT GUESS WINERY IMPORT PRESENT VALUE IMPORT PURCHASE PRICE IMPORT QTY CONSUMED IMPORT QTY PURCHASED IMPORT SUPPLIER IMPORT WINE LOOKUP ID IMPORT WINE NAME IMPORT WINE STYLE IMPORT WINE VINTAGE IMPORT YEAR TO DRINK PRESENT VALUE PURCHASE PRICE QUANTITY BOTTLES PURCHASED QUANTITY CASES PURCHASED QUANTITY CONSUMED ABBD>> << AFAAABACABAC>>C LocationE Date of purchase:O Qty consumed:Q Qty remaining:S Cellaring notesa Cellaring time:c Bottle size:e Bottles purchased:g Cases purchased:i Price paid:k Present value:m Best drinking to:n Best drinking from:p Page ##q Cellar Record No. of bottles in cellar Total cellar Value No. of entries| Supplier Pro 3.0 - 4.0F! Sunday Monday Tuesday Wednesday Thursday Friday Saturday January February March April August September October November December 1st Quarter 2nd Quarter 3rd Quarter 4th Quarter FMRLA FMRLA FMRLA FMRLA FMRLA VintageC WinesD Import Wine LookupE Import Vintage LookupH Guess Winery = 0 <> 0 = 0 XQCreate a new wine and vintage, split our wine name into 3 parts and assign it allY @MSPC FPTHA@4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Wines.WOR MSPCA NAMEA Wines.WOR RPTHA Wines.WOR nes.WOR 0jFMP3FMP3 Databases @4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Wines.fp3 Spice Girls 4Tune John Cook MSPCA NAMEA Wines.WOR RPTHA Wines.WOR CMSPC FPTHAC4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Vintages.WOR MSPCA NAMEA Vintages.WOR RPTHA Vintages.WOR ges.WOR 0iFMP3FMP3 Databases C4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Vintages.fp3 Spice Girls 4Tune John Cook MSPCA NAMEA Vintages.WOR RPTHA Vintages.WOR Q3Look for existing wine & vintages and set their IDsRV = 0 <> 0 The following steps fail with the Vintage:: relationship because Vintage ID is required for it to work. The new relationship is bound to have at least one match. V = 0 ZQCreate a new wine and vintage, split our wine name into 3 parts and assign it all[ CMSPC FPTHAC4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Vintages.WOR MSPCA NAMEA Vintages.WOR RPTHA Vintages.WOR ges.WOR FMP3FMP3 Databases C4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Vintages.fp3 Spice Girls 4Tune John Cook 4Tune MSPCA NAMEA Vintages.WOR RPTHA Vintages.WOR ) > 0 8EJNow copy all the fields, replacing auto-entered values, and stripping muckF @MSPC FPTHA@4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Wines.WOR MSPCA NAMEA Wines.WOR RPTHA Wines.WOR nes.WOR vFMP3FMP3 Databases @4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Wines.fp3 Spice Girls 4Tune John Cook 4Tune MSPCA NAMEA Wines.WOR RPTHA Wines.WOR bleasdale vintage port@ coriole shiraz@ estate@ passing clouds angel blend@ penfolds@ water@ FaliA alisA 1 + 1 0) - MSPCA NAMEA Vintages.WOR RPTHA Vintages.WOR FMP3FMP3 Databases C4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Vintages.fp3 Spice Girls 4Tune John Cook 4Tune MSPCA NAMEA Vintages.WOR RPTHA Vintages.WOR @MSPC FPTHA@4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Wines.WOR MSPCA NAMEA Wines.WOR RPTHA Wines.WOR nes.WOR vFMP3FMP3 Databases @4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Wines.fp3 Spice Girls 4Tune John Cook 4Tune MSPCA NAMEA Wines.WOR RPTHA Wines.WOR 2Go to Cellar Item in Vintage DB, returning ordinal Select All Select by Chosen Wine Name New User Cellar Item 0Delete Cellar Item by Vintage::Chosen Vintage ID $x Print Cellar Item List (Found Set) Print Cellar Item List (All) $Print Cellar Items of Chosen Vintage Import 98 Cellar Print Mac - Browsed Records Print Mac - Current Record Print Win - Browsed Records Print Win - Current Record Print - Browsed Records Print - Current Record Reclassify Wine & Vintage Split Wine Name Import 98 Cellar Copy A2Go to Cellar Item in Vintage DB, returning ordinal Helvetica Geneva CMSPC FPTHAC4Tune:Jobs:Wine Guide:Wine Guide 98:Wine CD:Databases:Vintages.WOR ges.WOR FaliFaliliFalili Find all cellar items for the chosen vintage ID. Step through them all, returning the ordinal of the chosen Cellar ID within this set. Then go to the related Vintage record. B! Select All v _$HUOp PHPHx N^ _O Select by Chosen Wine Name v _$HUOp PHPHx N^ _O xN^ _O ~\ON^. IaWe must keep the selected set as the found set, for purposes of total cellar value calculations. New User Cellar Item A0Delete Cellar Item by Vintage::Chosen Vintage ID A.Allow user to click delete in new empty portalB, ) >= 1 Import 98 Cellar ) > 0 8EJNow copy all the fields, replacing auto-entered values, and stripping muckF 8P3Look for existing wine & vintages and set their IDsQy > 0 > 0 A$x Print Cellar Item List (Found Set) @assign it allY A$x Print Cellar Item List (Found Set) A.Find all selected entries (bSelectedEntry = 1) A$Print Cellar Items of Chosen Vintage A.Print all items of Vintages::Chosen Vintage IDB! ) = 0 Cancel There are no cellar items to print. Print Mac - Browsed Records Print Mac - Current Record Print Win - Browsed Records Apple LaserWriter Select 360 Print Win - Current Record Print - Browsed Records ) = 1 Print - Current Record ) = 1 Print Cellar Item List (All) A.Find all selected entries (bSelectedEntry = 1) Reclassify Wine & Vintage -4425 Apple LaserWriter Select 360 AEReassign Wine and Vintage IDs according to globals in the Vintages DBB# ) > 0 Split Wine Name 'AETry to match the winery name, starting with 4 words, then try 3, 2, 1B 1 = 0 <> 0 1 - 1 HGWe have found a winery name of 'count' words, or we haven't (count = 0) Try to match the variety by locating known words. Look for less common words first (first 'SetField') - then see if any of our common variety words come earlier (other 'SetField's) "Barbera" "Barbera" "Blanc" "Blanc" "Botrytis" "Botrytis" "Brut" "Brut" "Burgundy" "Burgundy" "Cabernet" "Cabernet" Import 98 Cellar Copy "Cabernet" "Cabernet" "Chambourcin" "Chambourcin" "Chardonnay" "Chardonnay" "Chenin" "Chenin" "Claret" "Claret" "Classic" "Classic" "Colombard" "Colombard" "Coonawarra Red" "Coonawarra Red" "Cuv "Cuv "Dry" "Dry" "Durif" "Durif" "Franc" "Franc" Frontignac" "Frontignac" "Fum "Fum "Gamay" "Gamay" "Gew rztraminer" "Gew rztraminer" "Grenache" "Grenache" "Hermitage" "Hermitage" "Liqueur" "Liqueur" "Malbec" "Malbec" "Marlborough" "Marlborough" "Marsanne" "Marsanne" "Merlot" "Merlot" "Methode" "Methode" "Meunie "Meunier" "Mourvedre" "Mourvedre" "Muscat" "Muscat" thode" thode" "Oaked" "Oaked" "Old" "Old" "Petit" "Petit" "Pinot" "Pinot" "Port" "Port" "Rosato" "Rosato" "Ros "Ros "Roussanne" "Roussanne" "Sangiovese" "Sangiovese" "Sauvignon" "Sauvignon" "Semillon" "Semillon" "Sherry" "Sherry" "Shiraz" "Shiraz" "Sparkling" "Sparkling" "Sweet" "Sweet" "Syrah" "Syrah" "Taminga" "Taminga" "Tawny" "Tawny" "Tokay" "Tokay" "Traminer" "Traminer" "Unoaked" "Unoaked" "Unwooded" "Unwooded" "Verdelho" "Verdelho" "Viognier" "Viognier" "White" "White" "Zinfandel" "Zinfandel" 999 )))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) Barbera Barbera Blanc Blanc Botrytis Botrytis Burgundy Burgundy Cabernet Cabernet Cabernet Cabernet Chambourcin Chambourcin Chardonnay Chardon Chenin Chenin Claret Claret Classic Classic Colombard Colombard Coonawarra Red Coonawarra Red Durif Franc Franc Frontignac Frontignac Gamay Gamay rztraminer rztraminer Grenache Grenache Hermitage Hermitage Liqueur Liqueur Malbec Malbec Marlborough Marlborough Marsanne Marsanne Merlot Merlot Methode Methode Meunier Meunier Mourvedre Mourvedre Muscat Muscat thode thode Oaked Oaked Petit Petit Pinot Pinot Rosato Rosato Roussanne Roussanne Sangiovese Sangiovese Sauvignon Sauvignon Semillon Semillon Sherry Sherry Shiraz Shiraz Sparkling Sparkling Sweet Sweet Syrah Syrah Taminga Taminga Tawny Tawny Tokay Tokay Traminer Traminer Unoaked Unoaked Unwooded Unwooded Verdelho delho Viognier Viognier White White Zinfandel Zinfandel 222222222222222222222222222222222222222222222222222222222222 "Bin " 1) > 0 "Bin " 1) < "Bin " "Blanc" 1) > 0 "Blanc" 1) < "Blanc" Blanc Blanc Blanc "Burgundy" 1) > 0 "Burgundy" 1) < "Burgundy" Burgundy Burgundy Burgundy "Cabernet" 1) > 0 "Cabernet" 1) < "Cabernet" Cabernet Cabernet Cabernet "Chardonnay" 1) > 0 "Chardonnay" 1) < "Chardonnay" Chardonnay Chardonnay Chardonnay "Coonawarra" 1) > 0 "Coonawarra" 1) < "Coonawarra" Coonawarra Coonawarra Coonawarra "Cuv 1) > 0 "Cuv 1) < "Cuv "Dry" 1) > 0 "Dry" 1) < "Dry" "Franc" 1) > 0 "Franc" 1) < "Franc" Franc Franc Franc "Fum 1) > 0 "Fum 1) < "Fum "Grenache" 1) > 0 "Grenache" 1) < "Grenache" Grenache Grenache Grenache "Liqueur" 1) > 0 "Liqueur" 1) < "Liqueur" Liqueur Liqueur Liqueur "Malbec" 1) > 0 "Malbec" 1) < "Malbec" Malbec Malbec Malbec "Merlot" 1) > 0 "Merlot" 1) < "Merlot" Merlot Merlot Merlot "Muscat" 1) > 0 "Muscat" 1) < "Muscat" Muscat Muscat Muscat "Pinot " 1) > 0 "Pinot " 1) < "Pinot " Pinot Pinot Pinot "Port" 1) > 0 "Port" 1) < "Port" "Riesling" 1) > 0 "Riesling" 1) < "Riesling" Riesling Riesling Riesling "Sauvignon" 1) > 0 "Sauvignon" 1) < "Sauvignon" Sauvignon Sauvignon Sauvignon "Semillon" 1) > 0 "Semillon" 1) < "Semillon" Semillon Semillon Semillon "Tokay" 1) > 0 "Tokay" 1) < "Tokay" Tokay Tokay Tokay "White" 1) > 0 "White" 1) < "White" White White White 2 = 999 0) - 2 + 1))) Ph2b{now we know the number of words found for the wine name (might be 0 if not found) AND the variety (might be 0 if not found)c' 1 = 0 0) - 3 <= 3 0) -